home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2006 September / SAN CD 9-2006 CD-ROM 16.iso / pc / Software / Network Telescope Control / NTC-Setup.Exe / Source / ntc_client_button.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2006-03-24  |  1.7 KB  |  85 lines
  1. unit ntc_client_button;
  2. {
  3.     Copyright (C) 2004 - 2006 Andrew Sprott
  4.  
  5.     http://astronomy.crysania.co.uk
  6.     astro@trefach.co.uk
  7.  
  8.     This program is free software; you can redistribute it and/or
  9.     modify it under the terms of the GNU General Public License
  10.     as published by the Free Software Foundation; either version 2
  11.     of the License, or (at your option) any later version.
  12.  
  13.     This program is distributed in the hope that it will be useful,
  14.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  15.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  16.     GNU General Public License for more details.
  17.  
  18.     You should have received a copy of the GNU General Public License
  19.     along with this program; if not, write to the Free Software
  20.     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  21. }
  22.  
  23. interface
  24.  
  25. uses
  26.     SysUtils,
  27.     controls,
  28.     buttons,
  29.     classes;
  30.  
  31. const
  32.     s_no_object=0;
  33.     s_info=1;
  34.     s_focus=2;
  35.     s_about=3;
  36.     s_object=4;
  37.     s_search=5;
  38.     s_control=6;
  39.     s_network=7;
  40.     s_tracking=8;
  41.     s_sun=9;
  42.     s_moon=10;
  43.     s_planets=11;
  44.     s_catalogs=12;
  45.  
  46. type
  47.     scope_button_type=integer;
  48.  
  49.     tscope_button=class(tbitbtn)
  50.  
  51.         constructor create(
  52.             aowner:tcomponent); override;
  53.  
  54.     private
  55.         { private declarations }
  56.     public
  57.         { Public declarations }
  58.         control_type:scope_button_type;
  59.         button_hidden,
  60.         button_stuck:boolean;
  61.     end;
  62.  
  63. var
  64.     current_button:tscope_button;
  65.  
  66. implementation
  67.  
  68. uses
  69.     ntc_client_form;
  70.  
  71.     { -------------
  72.         form handling
  73.         ------------- }
  74.  
  75. constructor tscope_button.create(
  76.     aowner:tcomponent);
  77. begin
  78.     inherited create(aowner);
  79.     control_type:=s_no_object;
  80.     button_hidden:=true;
  81.     button_stuck:=false;
  82. end;
  83.  
  84. end.
  85.